(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     38014,        875]
NotebookOptionsPosition[     36794,        836]
NotebookOutlinePosition[     37228,        853]
CellTagsIndexPosition[     37185,        850]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"nums", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1.0", "/", "1000"}], ",", 
     RowBox[{"1.0", "/", "100"}], ",", 
     RowBox[{"1.0", "/", "10"}], ",", "1.0", ",", "10.0", ",", "100.0", ",", 
     "1000.0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.529855705256728*^9, 3.529855732678256*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"T_", ",", "mot_", ",", "psi_"}], "]"}], ":=", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"p", "/", "T"}], ")"}], "^", "2"}], "+", 
         RowBox[{"mot", "^", "2"}]}], "]"}], "-", "psi", "-", "mot"}], 
      "]"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.529855301225329*^9, 3.529855455627015*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"denfun", "[", 
   RowBox[{"T_", ",", "mot_", ",", "psi_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"Pi", "^", "2"}]}], " ", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"p", "^", "2"}], "*", 
        RowBox[{"f", "[", 
         RowBox[{"T", ",", "mot", ",", "psi"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"p", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], ",", 
    "8"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529855301225329*^9, 3.529855457099846*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"edfun", "[", 
   RowBox[{"T_", ",", "mot_", ",", "psi_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"Pi", "^", "2"}]}], " ", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"p", "^", "2"}], " ", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{"p", "^", "2"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"mot", " ", "T"}], ")"}], "^", "2"}]}], "]"}], "*", 
        RowBox[{"f", "[", 
         RowBox[{"T", ",", "mot", ",", "psi"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"p", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], ",", 
    "8"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529855301225329*^9, 3.529855458051943*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"prfun", "[", 
   RowBox[{"T_", ",", "mot_", ",", "psi_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"Pi", "^", "2"}]}], " ", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"p", "^", "4"}], "/", "3"}], "/", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{"p", "^", "2"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"mot", " ", "T"}], ")"}], "^", "2"}]}], "]"}]}], "*", 
        RowBox[{"f", "[", 
         RowBox[{"T", ",", "mot", ",", "psi"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"p", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], ",", 
    "8"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529855301225329*^9, 3.529855460162794*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sfun", "[", 
   RowBox[{"T_", ",", "mot_", ",", "psi_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/", 
      RowBox[{"Pi", "^", "2"}]}], " ", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"p", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"f", "[", 
            RowBox[{"T", ",", "mot", ",", "psi"}], "]"}], "*", 
           RowBox[{"Log", "[", 
            RowBox[{"f", "[", 
             RowBox[{"T", ",", "mot", ",", "psi"}], "]"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"f", "[", 
              RowBox[{"T", ",", "mot", ",", "psi"}], "]"}]}], ")"}], "*", 
           RowBox[{"Log", "[", 
            RowBox[{"1", "-", 
             RowBox[{"f", "[", 
              RowBox[{"T", ",", "mot", ",", "psi"}], "]"}]}], "]"}]}]}], 
         ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"p", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], ",", 
    "8"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529855301225329*^9, 3.529855461650751*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dndTfun", "[", 
   RowBox[{"T_", ",", "mot_", ",", "psi_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"denfun", "[", 
           RowBox[{"T2", ",", "mot2", ",", "psi2"}], "]"}], ",", "T2"}], 
         "]"}], ")"}], "/.", 
       RowBox[{"T2", "\[Rule]", "T"}]}], "/.", 
      RowBox[{"mot2", "\[Rule]", "mot"}]}], "/.", 
     RowBox[{"psi2", "\[Rule]", "psi"}]}], ",", "8"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529855301225329*^9, 3.529855463018561*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dndmufun", "[", 
   RowBox[{"T_", ",", "mot_", ",", "psi_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"denfun", "[", 
            RowBox[{"T2", ",", "mot2", ",", "psi2"}], "]"}], ",", "mot2"}], 
          "]"}], "/", "T2"}], ")"}], "/.", 
       RowBox[{"T2", "\[Rule]", "T"}]}], "/.", 
      RowBox[{"mot2", "\[Rule]", "mot"}]}], "/.", 
     RowBox[{"psi2", "\[Rule]", "psi"}]}], ",", "8"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529855496794839*^9, 3.529855516812912*^9}, {
  3.529855648612747*^9, 3.5298556700639563`*^9}, {3.529856075072563*^9, 
  3.529856085822953*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dsdTfun", "[", 
   RowBox[{"T_", ",", "mot_", ",", "psi_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"sfun", "[", 
           RowBox[{"T2", ",", "mot2", ",", "psi2"}], "]"}], ",", "T2"}], 
         "]"}], ")"}], "/.", 
       RowBox[{"T2", "\[Rule]", "T"}]}], "/.", 
      RowBox[{"mot2", "\[Rule]", "mot"}]}], "/.", 
     RowBox[{"psi2", "\[Rule]", "psi"}]}], ",", "8"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529855301225329*^9, 3.529855463786831*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tab", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"nums", "[", 
       RowBox[{"[", "i2", "]"}], "]"}], ",", 
      RowBox[{"nums", "[", 
       RowBox[{"[", "i3", "]"}], "]"}], ",", 
      RowBox[{"denfun", "[", 
       RowBox[{"1", ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i2", "]"}], "]"}], ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i3", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"edfun", "[", 
       RowBox[{"1", ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i2", "]"}], "]"}], ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i3", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"prfun", "[", 
       RowBox[{"1", ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i2", "]"}], "]"}], ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i3", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"sfun", "[", 
       RowBox[{"1", ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i2", "]"}], "]"}], ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i3", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"dndTfun", "[", 
       RowBox[{"1", ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i2", "]"}], "]"}], ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i3", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"dndmufun", "[", 
       RowBox[{"1", ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i2", "]"}], "]"}], ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i3", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"dsdTfun", "[", 
       RowBox[{"1", ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i2", "]"}], "]"}], ",", 
        RowBox[{"nums", "[", 
         RowBox[{"[", "i3", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i2", ",", "1", ",", "7"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i3", ",", "1", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.529855822970333*^9, 3.529855877054357*^9}, {
   3.529855957263006*^9, 3.5298560388803177`*^9}, {3.5298584886325703`*^9, 
   3.529858490686569*^9}, {3.5298592338793983`*^9, 3.5298592405089903`*^9}, {
   3.529864750696971*^9, 3.529864764752577*^9}, 3.529927898592409*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"NIntegrate", "::", "\<\"precw\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the argument \
function (\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(p\\^2\
\\/\\(1 + \[ExponentialE]\\^\\(\\(\\(-0.002`\\)\\) + \\@\\(1.`*^-6 + \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than \
WorkingPrecision (\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\
\\(18.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"NIntegrate::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529856106223386*^9, 3.529858491606441*^9, 
  3.529858646859302*^9, 3.5298648487097483`*^9, 3.529927926503643*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"NIntegrate", "::", "\<\"precw\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the argument \
function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(p\\^2\\\\ \\@\\(1.`*^-6 + \
p\\^2\\)\\)\\/\\(1 + \[ExponentialE]\\^\\(\\(\\(-0.002`\\)\\) + \\@\\(1.`*^-6 \
+ \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than \
WorkingPrecision (\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\
\\(18.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"NIntegrate::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529856106223386*^9, 3.529858491606441*^9, 
  3.529858646859302*^9, 3.5298648487097483`*^9, 3.529927927629266*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"NIntegrate", "::", "\<\"precw\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the argument \
function (\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(p\\^4\
\\/\\(3\\\\ \\(\\((1 + \[ExponentialE]\\^\\(\\(\\(-0.002`\\)\\) + \
\\@\\(1.`*^-6 + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\))\\)\\)\\\\ \\@\\(1.`*^-6 + \
p\\^2\\)\\)\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is \
less than WorkingPrecision (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(18.`\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\
\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/precw\\\", \
ButtonNote -> \\\"NIntegrate::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529856106223386*^9, 3.529858491606441*^9, 
  3.529858646859302*^9, 3.5298648487097483`*^9, 3.529927928867777*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(NIntegrate :: \
\\\"precw\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529856106223386*^9, 3.529858491606441*^9, 
  3.529858646859302*^9, 3.5298648487097483`*^9, 3.529927928922394*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"NIntegrate", "::", "\<\"inumr\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The integrand \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(p\\^2\\/\\(1 + \
\[ExponentialE]\\^\\(\\(\\(-mot2\\)\\) - psi2 + \\@\\(\\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Times[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" has evaluated to non-numerical \
values for all sampling points in the region with boundaries \\\\\\\"\\\", \\\
\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\({\[Infinity], 0}\\)}\\), \\\
\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\".\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/NIntegrate/inumr\\\", ButtonNote -> \
\\\"NIntegrate::inumr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529856106223386*^9, 3.529858491606441*^9, 
  3.529858646859302*^9, 3.5298648487097483`*^9, 3.5299283023360147`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"NIntegrate", "::", "\<\"inumr\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The integrand \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(p\\^2\\/\\(1 + \
\[ExponentialE]\\^\\(\\(\\(-mot2\\)\\) - psi2 + \\@\\(\\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Times[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" has evaluated to non-numerical \
values for all sampling points in the region with boundaries \\\\\\\"\\\", \\\
\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\({\[Infinity], 0}\\)}\\), \\\
\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\".\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/NIntegrate/inumr\\\", ButtonNote -> \
\\\"NIntegrate::inumr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529856106223386*^9, 3.529858491606441*^9, 
  3.529858646859302*^9, 3.5298648487097483`*^9, 3.529928302390876*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"NIntegrate", "::", "\<\"inumr\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The integrand \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(p\\^2\\/\\(1 + \
\[ExponentialE]\\^\\(\\(\\(-mot2\\)\\) - psi2 + \\@\\(\\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Times[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" has evaluated to non-numerical \
values for all sampling points in the region with boundaries \\\\\\\"\\\", \\\
\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\({\[Infinity], 0}\\)}\\), \\\
\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\".\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/NIntegrate/inumr\\\", ButtonNote -> \
\\\"NIntegrate::inumr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529856106223386*^9, 3.529858491606441*^9, 
  3.529858646859302*^9, 3.5298648487097483`*^9, 3.529928302435164*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(NIntegrate :: \
\\\"inumr\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.529856106223386*^9, 3.529858491606441*^9, 
  3.529858646859302*^9, 3.5298648487097483`*^9, 3.529928302473543*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "0.001`", ",", "0.001`", ",", 
       "0.18302432157490007577944086642770158248`8.", ",", 
       "0.57682402667619786051950589186297655499`8.", ",", 
       "0.19227464773417076280463066985705659354`8.", ",", 
       "0.76873262576717422481507274237064872943`7.698970004314303", ",", 
       "0.54907296472483344310801231764094517729`8.", ",", 
       "0.16687743424011875779788311885657178004`8.", ",", 
       "2.30619787730099432031623015851400370238`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.001`", ",", "0.01`", ",", 
       "0.1845325606860332595129355343506131426`8.", ",", 
       "0.58178601950251065933567758492521169956`8.", ",", 
       "0.19392864513126081228490170164078246116`8.", ",", 
       "0.77368480646618010609059661965581417733`7.698970004314303", ",", 
       "0.55359768205823419340175463408916863352`8.", ",", 
       "0.16814706402886500923368191528152281846`8.", ",", 
       "2.32105441939800747724776811441116032531`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.001`", ",", "0.1`", ",", 
       "0.20025807737453275565298342253309419009`8.", ",", 
       "0.63370611278138339550570063204076503971`8.", ",", 
       "0.21123534069741623840477107303342956423`8.", ",", 
       "0.82471538766392260585558224217974080018`7.698970004314303", ",", 
       "0.6007742321237452841488352250341925115`8.", ",", 
       "0.18130320911313603969161045048911868848`8.", ",", 
       "2.47414616299118797258751354357927625258`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.001`", ",", "1.`", ",", 
       "0.43891773958008496371811630491162173839`8.", ",", 
       "1.45926274430577728302564156270531502596`8.", ",", 
       "0.48642085371931881598822468649874529`8.", ",", 
       "1.5063269407053114548466436667370572835`7.698970004314303", ",", 
       "1.31675321874061628306769406831601104814`8.", ",", 
       "0.36616310958823780247864641048701007873`8.", ",", 
       "4.51898082211458495130888157956848532612`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.001`", ",", "10.`", ",", 
       "37.11753636309869939274907764060652681523`8.", ",", 
       "304.56571964642064505951094149422811049339`8.", ",", 
       "101.5219048042288870347913008748917843209`8.", ",", 
       "34.87514328329943356590677666241979147916`7.698970004314303", ",", 
       "111.3526090892960597759931286483615015191`8.", ",", 
       "10.46645566350559291226441201461536404572`8.", ",", 
       "104.625429849897987125256827822036634587`7.698970004314303"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "0.01`", ",", "0.001`", ",", 
       "0.18452905682307915184344366782577509357`8.", ",", 
       "0.58178185579659013490162346323591321823`8.", ",", 
       "0.19392448211616152698242255617111679914`8.", ",", 
       "0.77367651828734529359300019467874419496`7.698970004314303", ",", 
       "0.55358717046983057874344356343348147484`8.", ",", 
       "0.16750751850305608566661970672931018082`8.", ",", 
       "2.32102955486149799561085098513588296735`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.01`", ",", "0.01`", ",", 
       "0.18604874108217821203944295016057497476`8.", ",", 
       "0.58678469409198342434631217970036205914`8.", ",", 
       "0.19559207357802654775314478785038724705`8.", ",", 
       "0.77865579284801212890420696212099690531`7.698970004314303", ",", 
       "0.55814622324712893724424332582678000965`8.", ",", 
       "0.16878125189236524368731740976964984562`8.", ",", 
       "2.33596737854348984910081731403704297351`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.01`", ",", "0.1`", ",", 
       "0.20189285244330498078984568135744151461`8.", ",", 
       "0.63913065098626038052323345940725569614`8.", ",", 
       "0.21304050514376138761497970730840334601`8.", ",", 
       "0.82996294236088593980514274725903775051`7.698970004314303", ",", 
       "0.60567855733052062052301550140596845922`8.", ",", 
       "0.18197944812031003027091362112389370614`8.", ",", 
       "2.48988882708202274822863139987563280675`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.01`", ",", "1.`", ",", "0.44221858470444217055638831929380156628`8.",
        ",", "1.47114900086330275981139434288559674898`8.", ",", 
       "0.49037685605564735358264566069834094017`8.", ",", 
       "1.51488508636688097423970771401322815022`7.698970004314303", ",", 
       "1.32665575411405026627349132547953121371`8.", ",", 
       "0.36735705500805858713636523342851924953`8.", ",", 
       "4.54465525909895986911194446586853874083`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.01`", ",", "10.`", ",", 
       "37.21177548293576491125981762758504027513`8.", ",", 
       "305.56890615128124767809070185750376693128`8.", ",", 
       "101.85612728983994725019397934211665395866`8.", ",", 
       "34.93516085693667746516891474857978369843`7.698970004314303", ",", 
       "111.63532644880724682598078249432494576349`8.", ",", 
       "10.47556960152493766305554239687377995688`8.", ",", 
       "104.80548257080972418628256999038870374131`7.698970004314303"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "0.1`", ",", "0.001`", ",", 
       "0.19988209669606019986799252335979297224`8.", ",", 
       "0.63325094702124511953812889572470895672`8.", ",", 
       "0.21078436843591531343515738559204802126`8.", ",", 
       "0.82384722369080928492428967766808946785`7.698970004314303", ",", 
       "0.59964629008832737178636936646400995772`8.", ",", 
       "0.17361657882880187901780023107462590973`8.", ",", 
       "2.4715416710718482073582389669297403147`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.1`", ",", "0.01`", ",", 
       "0.20151823371498290377642951289167739098`8.", ",", 
       "0.63867659209551880395906757255596478595`8.", ",", 
       "0.21259066073095870006540119668555292077`8.", ",", 
       "0.82910024711777987562357358321720373997`7.698970004314303", ",", 
       "0.60455470114509680672463800051752098416`8.", ",", 
       "0.17493041070940893493080768168905964162`8.", ",", 
       "2.48730074135275506155288511837999408807`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.1`", ",", "0.1`", ",", "0.21856880606272024079777541329166258164`8.",
        ",", "0.69542988112561145741791056605106897183`8.", ",", 
       "0.23148506057703829448324614827211296676`8.", ",", 
       "0.88320118049005154409294143796717526561`7.698970004314303", ",", 
       "0.65570641818832272525351592678073593339`8.", ",", 
       "0.18853970440491574445248656409296308783`8.", ",", 
       "2.64960354146951854808817589603426852844`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.1`", ",", "1.`", ",", "0.47580861297717713281838381124954545959`8.", 
       ",", "1.5941511619708228466379482434319088641`8.", ",", 
       "0.53073283912097659164360169565527159371`8.", ",", 
       "1.60149452681672577259082424315261715569`7.698970004314303", ",", 
       "1.42742583893193016319234584867037416447`8.", ",", 
       "0.37900329865994589476613883100328305633`8.", ",", 
       "4.80448358044880737523362242137620672969`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.1`", ",", "10.`", ",", 
       "38.15866399022058874437798565797473121287`8.", ",", 
       "315.71782473254642390062432302088741541905`8.", ",", 
       "105.22150285769968105437405697415943095615`8.", ",", 
       "35.53682128901814990104146334405466054718`7.698970004314303", ",", 
       "114.47599197066164310970864136474761713021`8.", ",", 
       "10.56626275795658543143857495094235925326`8.", ",", 
       "106.61046386705361569013509100669006862455`7.698970004314303"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "1.`", ",", "0.001`", ",", 
       "0.37988769093136618871448342104403449938`8.", ",", 
       "1.3614351288764764714002108565418112996`8.", ",", 
       "0.41030906992711538354192352086410391417`8.", ",", 
       "1.39147662018117850647123700620230839111`7.698970004314303", ",", 
       "1.1396630727944465017837818912081998119`8.", ",", 
       "0.22388093793185167391598970114888969748`8.", ",", 
       "4.17442986054223123992266185871339734975`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "1.`", ",", "0.01`", ",", "0.38286599184764980659672433146033113529`8.",
        ",", "1.3726881950075216800250971345604415675`8.", ",", 
       "0.41374144603154998940990061600891035037`8.", ",", 
       "1.39973498927282848025587789682688556286`7.698970004314303", ",", 
       "1.14859797554330050118219328136154075476`8.", ",", 
       "0.22553476971785289020844810038386149632`8.", ",", 
       "4.1992049678171702034152421949574657983`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "1.`", ",", "0.1`", ",", "0.41380497878338763727183742828861634858`8.", 
       ",", "1.49006998849876349686466457633421333841`8.", ",", 
       "0.44957570696782711667271338208817298868`8.", ",", 
       "1.4844602188047363129887977317430075554`7.698970004314303", ",", 
       "1.24141493635054705828414233908016453379`8.", ",", 
       "0.24263680854382119688049032735805262463`8.", ",", 
       "4.45338065641277898904951761312718807532`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "1.`", ",", "1.`", ",", "0.86311563473785688513749864213885291084`8.", 
       ",", "3.28563822837469227225979975882253730969`8.", ",", 
       "1.00325727645242222312022515342797651018`8.", ",", 
       "2.56266423535108551433026021946868642352`7.698970004314303", ",", 
       "2.58934690421451562500386070052051001348`8.", ",", 
       "0.47729310267334220524283916248430875616`8.", ",", 
       "7.68799270604994342125536498285982509349`7.698970004314303"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "1.`", ",", "10.`", ",", "48.06342449408020933095105810083054503276`8.",
        ",", "429.32823936374370393392543402550387514092`8.", ",", 
       "141.07092323373413370793526949294321276401`8.", ",", 
       "41.70149316259546452042334694544019068695`7.698970004314303", ",", 
       "144.19027348224060977048675682528301380979`8.", ",", 
       "11.43264583085990772952831320335686938309`8.", ",", 
       "125.10447948778600302123933396367999278736`7.698970004314303"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "10.`", ",", "0.001`", ",", "3.75805313989329218340969715976166129`8.", 
       ",", "44.66246345025854612183448753712772172742`8.", ",", 
       "4.21512755034435782049165308650361874887`8.", ",", 
       "11.29330154853011549168296811912596580086`7.698970004314303", ",", 
       "11.27415941967988053082971988041866247647`8.", ",", 
       "0.49255342301780211577907675929029134611`8.", ",", 
       "33.87990464559034119939000028995152067795`7.698970004314303"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "10.`", ",", "0.01`", ",", 
       "3.78544708040922679402557896318576771683`8.", ",", 
       "44.9937508134080144149343759563835980474`8.", ",", 
       "4.24907317920586710019085064622723788035`8.", ",", 
       "11.3504987177175471092414119650628172725`7.698970004314303", ",", 
       "11.35634124122768436147880762298224146465`8.", ",", 
       "0.49609282411754638626964733983328795259`8.", ",", 
       "34.05149615315263594148203883273340190869`7.698970004314303"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "10.`", ",", "0.1`", ",", "4.06845133062353706889936320782300181167`8.",
        ",", "48.4209318122775577110029854996707767176`8.", ",", 
       "4.60237415368464033852104452018805649925`8.", ",", 
       "11.93194752666328255517506775328111555978`7.698970004314303", ",", 
       "12.20535399187061514988402179279400595656`8.", ",", 
       "0.53261707619878412603024707751704899945`8.", ",", 
       "35.79584257998996760222900076502164640698`7.698970004314303"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "10.`", ",", "1.`", ",", "7.90768619632864031622929840532298203646`8.", 
       ",", "95.73018518306611209346794685433217887291`8.", ",", 
       "9.84707047001738367130078711017796079912`8.", ",", 
       "18.59270749346844912859387862979016004549`7.698970004314303", ",", 
       "23.72305858898592276669512413274870888991`8.", ",", 
       "1.02108419194317662951911108566583583256`8.", ",", 
       "55.77812248040533315599092811390396270007`7.698970004314303"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "10.`", ",", "10.`", ",", 
       "182.23368346297802113557492475457448523432`8.", ",", 
       "3097.97888327037883835070511019576455030334`8.", ",", 
       "663.63089623481339323677801155906052760856`8.", ",", 
       "116.93611024563174010997266918264611074091`7.698970004314303", ",", 
       "546.70105038893792631103772366095644082793`8.", ",", 
       "17.90318908371086736934066728540144671869`8.", ",", 
       "350.80833073689527914947643980785450379701`7.698970004314303"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "100.`", ",", "0.001`", ",", 
       "99.31704120796812974062736557266099708959`8.", ",", 
       "10102.5963182463909986654400631856778298302`8.", ",", 
       "112.44111918338342148031911806812234411513`8.", ",", 
       "283.23399959175305358726004247363863527147`7.698970004314303", ",", 
       "297.95112362390471257094657968706110725093`8.", ",", 
       "1.46889695141545448398617121091536661489`8.", ",", 
       "849.70199877526033800902072620943066315068`7.698970004314303"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100.`", ",", "0.01`", ",", 
       "100.02731208960124651059617001872011628492`8.", ",", 
       "10174.98782380357949285099953265055408125615`8.", ",", 
       "113.33816574760544511796222752875665635939`8.", ",", 
       "284.59450747016381091752985792773462976855`7.698970004314303", ",", 
       "300.08193626880406518495816757219928036262`8.", ",", 
       "1.47938471180493086131047726019087639804`8.", ",", 
       "853.78352241049261919745340136110539409713`7.698970004314303"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100.`", ",", "0.1`", ",", 
       "107.35409691158703523521201185712023222614`8.", ",", 
       "10921.8568578900267167610889939140988627072`8.", ",", 
       "122.66725662441630783835973108784911930057`8.", ",", 
       "298.37901366458143749569386604596286357258`7.698970004314303", ",", 
       "322.06229073476145432564254702712269392822`8.", ",", 
       "1.58755706167214129886861810028192089968`8.", ",", 
       "895.13704099374558882234905359571439638827`7.698970004314303"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100.`", ",", "1.`", ",", 
       "204.87753228264244936622693537177573961888`8.", ",", 
       "20882.89515811979878525621495086324828903759`8.", ",", 
       "259.75104341200965829694987742656970369603`8.", ",", 
       "450.01544098492069790977092996769624669796`7.698970004314303", ",", 
       "614.63259684792781053060800957560304454656`8.", ",", 
       "3.02501375239871937097737065245102005968`8.", ",", 
       "1350.04632295476355214127926889963117011899`7.698970004314303"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100.`", ",", "10.`", ",", 
       "3302.15299898997059429171750093204395808152`8.", ",", 
       "351335.79497004361942147722362577932980853267`8.", ",", 
       "13575.59367356645961714104422352995196813782`8.", ",", 
       "1674.55875471327756035894698979197346116862`7.698970004314303", ",", 
       "9906.45899696975487590105855004390628983175`8.", ",", 
       "47.06336305040309467865262177964783803203`8.", ",", 
       "5023.67626414010280224913291369240634304338`7.698970004314303"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "1000.`", ",", "0.001`", ",", 
       "3081.56153507789765862454722960293155537159`8.", ",", 
       "3.08680724211251063825418076656848011030249174`8.*^6", ",", 
       "3492.47348381625100770292559171798114224669`8.", ",", 
       "8735.09895689422366742976046652087428355046`7.698970004314303", ",", 
       "9244.6846052336965748256260705151942267751`8.", ",", 
       "4.61580091481025424524538341766169556981`8.", ",", 
       "26205.29687068266885416421169038214923589955`7.698970004314303"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1000.`", ",", "0.01`", ",", 
       "3103.5510416176498817108863447204813669308`8.", ",", 
       "3.10883855712919536444735017914962526220448944`8.*^6", ",", 
       "3520.30639724698030115278474969179862784001`8.", ",", 
       "8776.78639837631279755183628807184722286788`7.698970004314303", ",", 
       "9310.65312485295326202097101265518551152466`8.", ",", 
       "4.64873304704159529624584338729362542558`8.", ",", 
       "26330.35919512893619601614218531547379562203`7.698970004314303"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1000.`", ",", "0.1`", ",", 
       "3330.34397983696294877386415198024564316489`8.", ",", 
       "3.33606625893154610749547161278037022928971161`8.*^6", ",", 
       "3809.73710418055871060694776065163056552896`8.", ",", 
       "9198.98180077994316309089019341174545553994`7.698970004314303", ",", 
       "9991.03193951089264277810750377221193342147`8.", ",", 
       "4.98838038960692545889993797673352859746`8.", ",", 
       "27596.94540233970671888418970111243567178683`7.698970004314303"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1000.`", ",", "1.`", ",", 
       "6342.36850944657293316604767174609935253548`8.", ",", 
       "6.35447240733449487658755467753860323076562813`8.*^6", ",", 
       "8057.73520564224572165536401949897255590645`8.", ",", 
       "13819.26458411760820842295960753852288689018`7.698970004314303", ",", 
       "19027.1055283397245535310757376838291580193`8.", ",", 
       "9.49846181389424146869544531126315774694`8.", ",", 
       "41457.79375235281820882710573438786986615938`7.698970004314303"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1000.`", ",", "10.`", ",", 
       "97478.05360911652931834712520008625629296524`8.", ",", 
       "9.80923307066940018300434703`8.*^7", ",", 
       "407951.9040204970985373668374244277778109388`8.", ",", 
       "47448.46550680431696435559620639363911804041`7.698970004314303", ",", 
       "292434.16082736947422284975907082530332786198`8.", ",", 
       "145.45452235725590555303878416571030734164`8.", ",", 
       "142345.39652041268015828901583782199293658156`7.698970004314303"}], 
      "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.52985606507136*^9, {3.529858485006015*^9, 3.529858492771613*^9}, 
   3.529863851653758*^9, 3.529883520487859*^9, 3.529971280700569*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<partmath.dat\>\"", ",", "tab", ",", "\"\<Table\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.529858578904952*^9, 3.529858612582489*^9}}],

Cell[BoxData["\<\"partmath.dat\"\>"], "Output",
 CellChangeTimes->{3.529858593061384*^9, 3.529863851845648*^9, 
  3.529883520715537*^9, 3.5299712809187593`*^9}]
}, Open  ]]
},
WindowSize->{1014, 750},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 345, 9, 28, "Input"],
Cell[893, 31, 528, 16, 28, "Input"],
Cell[1424, 49, 601, 18, 28, "Input"],
Cell[2028, 69, 806, 24, 28, "Input"],
Cell[2837, 95, 863, 26, 28, "Input"],
Cell[3703, 123, 1196, 35, 63, "Input"],
Cell[4902, 160, 627, 18, 28, "Input"],
Cell[5532, 180, 765, 21, 28, "Input"],
Cell[6300, 203, 625, 18, 28, "Input"],
Cell[CellGroupData[{
Cell[6950, 225, 2259, 59, 63, "Input"],
Cell[9212, 286, 993, 17, 62, "Message"],
Cell[10208, 305, 1030, 18, 67, "Message"],
Cell[11241, 325, 1040, 16, 82, "Message"],
Cell[12284, 343, 713, 11, 24, "Message"],
Cell[13000, 356, 1114, 17, 72, "Message"],
Cell[14117, 375, 1112, 17, 72, "Message"],
Cell[15232, 394, 1112, 17, 72, "Message"],
Cell[16347, 413, 713, 11, 24, "Message"],
Cell[17063, 426, 19321, 394, 638, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36421, 825, 194, 4, 28, "Input"],
Cell[36618, 831, 160, 2, 28, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
